home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #25 (Oct 87) / cdev source / AF.R (edit) < prev    next >
Text File  |  1987-09-21  |  3KB  |  191 lines
  1. /*
  2.  * AppFont.r -    Application Font Control by Steve Sheets
  3.  *                Control Panel Proc to change the Application Font
  4.  *
  5.  */
  6.  
  7. #include "Types.r"
  8.  
  9. type 'apft' as 'STR ';
  10.  
  11. type 'nrct' {
  12.     integer = $$CountOf(RectArray);
  13.     array RectArray { rect; };
  14. };
  15.  
  16. type 'mach' {
  17.     unsigned hex integer;
  18.     unsigned hex integer;
  19. };
  20.  
  21. resource 'apft' (0) {
  22.     "Application Font Control by Steve Sheets 3/18/87"
  23. };
  24.  
  25. resource 'nrct' (-4064, purgeable) {
  26.     {    /* array RectArray: 1 elements */
  27.         /* [1] */
  28.         {-1,87,200,322}
  29.     }
  30. };
  31.  
  32. resource 'mach' (-4064, purgeable) {
  33.     0xFFFF,
  34.     0
  35. };
  36.  
  37. resource 'BNDL' (-4064, purgeable) {
  38.     'apft',
  39.     0,
  40.     {    /* array TypeArray: 2 elements */
  41.         /* [1] */
  42.         'ICN#',
  43.         {    /* array IDArray: 1 elements */
  44.             /* [1] */
  45.             0, -4064
  46.         },
  47.         /* [2] */
  48.         'FREF',
  49.         {    /* array IDArray: 1 elements */
  50.             /* [1] */
  51.             0, -4064
  52.         }
  53.     }
  54. };
  55.  
  56. resource 'FREF' (-4064, purgeable) {
  57.     'cdev',
  58.     0,
  59.     ""
  60. };
  61.  
  62. resource 'DITL' (-4064, purgeable) {
  63.     {    /* array DITLarray: 17 elements */
  64.         /* [1] */
  65.         {25, 100, 44, 170},
  66.         RadioButton {
  67.             enabled,
  68.             "Chicago"
  69.         },
  70.         /* [2] */
  71.         {45, 100, 64, 185},
  72.         RadioButton {
  73.             enabled,
  74.             "New York"
  75.         },
  76.         /* [3] */
  77.         {65, 100, 84, 169},
  78.         RadioButton {
  79.             enabled,
  80.             "Geneva"
  81.         },
  82.         /* [4] */
  83.         {85, 100, 104, 171},
  84.         RadioButton {
  85.             enabled,
  86.             "Monaco"
  87.         },
  88.         /* [5] */
  89.         {105, 100, 124, 164},
  90.         RadioButton {
  91.             enabled,
  92.             "Venice"
  93.         },
  94.         /* [6] */
  95.         {125, 100, 144, 167},
  96.         RadioButton {
  97.             enabled,
  98.             "London"
  99.         },
  100.         /* [7] */
  101.         {145, 100, 164, 165},
  102.         RadioButton {
  103.             enabled,
  104.             "Athens"
  105.         },
  106.         /* [8] */
  107.         {165, 100, 185, 209},
  108.         RadioButton {
  109.             enabled,
  110.             "San Francisco"
  111.         },
  112.         /* [9] */
  113.         {25, 215, 44, 284},
  114.         RadioButton {
  115.             enabled,
  116.             "Toronto"
  117.         },
  118.         /* [10] */
  119.         {45, 215, 64, 270},
  120.         RadioButton {
  121.             enabled,
  122.             "Cairo"
  123.         },
  124.         /* [11] */
  125.         {65, 215, 84, 313},
  126.         RadioButton {
  127.             enabled,
  128.             "Los Angeles"
  129.         },
  130.         /* [12] */
  131.         {85, 215, 104, 272},
  132.         RadioButton {
  133.             enabled,
  134.             "Times"
  135.         },
  136.         /* [13] */
  137.         {105, 215, 124, 297},
  138.         RadioButton {
  139.             enabled,
  140.             "Helvetica"
  141.         },
  142.         /* [14] */
  143.         {125, 215, 144, 283},
  144.         RadioButton {
  145.             enabled,
  146.             "Courier"
  147.         },
  148.         /* [15] */
  149.         {145, 215, 164, 283},
  150.         RadioButton {
  151.             enabled,
  152.             "Symbol"
  153.         },
  154.         /* [16] */
  155.         {165, 215, 184, 284},
  156.         RadioButton {
  157.             enabled,
  158.             "Taliesin"
  159.         },
  160.         /* [17] */
  161.         {5, 129, 23, 364},
  162.         StaticText {
  163.             disabled,
  164.             "Select New Application Font"
  165.         }
  166.     }
  167. };
  168.  
  169. resource 'ICN#' (-4064, purgeable, preload) {
  170.     {    /* array: 2 elements */
  171.         /* [1] */
  172.         $"1FFF FFF8 2000 0004 4002 0002 8006 0001"
  173.         $"800E 0001 8016 0001 8026 0001 8046 0001"
  174.         $"80FE 0001 8106 0001 8206 0001 8406 0001"
  175.         $"8806 0001 BF1F 8001 8000 0001 8000 8001"
  176.         $"8001 5001 8002 3001 8001 1001 8000 9101"
  177.         $"8001 F281 8000 0441 8000 0821 8000 10D1"
  178.         $"8000 2129 8000 129D 8000 091D 8000 04ED"
  179.         $"8000 0281 4000 0102 2000 0004 1FFF FFF8",
  180.         /* [2] */
  181.         $"1FFF FFF8 3FFF FFFC 7FFF FFFE FFFF FFFF"
  182.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  183.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  184.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  185.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  186.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  187.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  188.         $"FFFF FFFF 7FFF FFFE 3FFF FFFC 1FFF FFF8"
  189.     }
  190. };
  191.